macro MakeClut;
{	This macro demonstrates how to write LUT entries. }
{	The new LUT could be saved by calling SaveClut.  }
var
	integer : r,g,b;
	longint : index;
begin
	for(index,1,254)
		r:=EvalNumber(index,+,0);
		g:=EvalNumber(255,-,index);
		b:=125;
		SetClutValues(index,r,g,b);
	endfor;
	UpdateClut;
end;